www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_menu_models.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<%

dir_set="../"


%>





<!--#include file=../inc/conn.asp-->
<!--#include file=../inc/Functionb.asp-->

<!--#include file=../inc/ajaxLIB.asp-->

<!--#include file=inc/checkadmin1.asp-->

<!--#include file=../inc/functionFiless.asp-->
<!--#include file=../inc/ND_class_function.asp-->

<!--#include file="adminModel/modelsys_inc/D_model_class.asp"-->




<LINK href="css.css" type=text/css rel=stylesheet>

<style type="text/css">
<!--

#aas {
	height: 20px;
	text-align: center;
	margin-bottom: 0px;
	margin-top: 20px;
	background-image: url(IMG/menu_bg.jpg);
	background-repeat: repeat-x;
	margin-right: 5px;
	margin-left: 5px;
	border-top-width: 1px;
	border-right-width: 1px;
	border-bottom-width: 0px;
	border-left-width: 1px;
	border-top-style: solid;
	border-right-style: solid;
	border-bottom-style: solid;
	border-left-style: solid;
	border-top-color: #0000CC;
	border-right-color: #0000CC;
	border-bottom-color: #0000CC;
	border-left-color: #0000CC;
	background-color: #FFFFFF;
}


#cont1 {
	height: auto;
	width: auto;
	padding: 0px;
	border-top-width: 0px;
	border-right-width: 1px;
	border-bottom-width: 1px;
	border-left-width: 1px;
	border-top-style: solid;
	border-right-style: solid;
	border-bottom-style: solid;
	border-left-style: solid;
	border-top-color: #0000CC;
	border-right-color: #0000CC;
	border-bottom-color: #0000CC;
	border-left-color: #0000CC;
	background-color: #FFFFFF;
	margin-top: 0px;
	margin-right: 5px;
	margin-bottom: 0px;
	margin-left: 5px;
}
#cont1 ul {
	list-style-type: none;
	clear: both;
	float: none;
	margin: 0px;
	padding: 0px;
}
#cont1 li {
	background-position: center;
	text-align: center;
	margin: 0px;
	padding: 0px;
	height:20px;

}
body {
	background-color: #03A0E4;
}



#ttl1 {
	height: 18px;
	width: 100%;
	padding: 0px;
	border-top-width: 1px;
	border-right-width: 0px;
	border-bottom-width: 1px;
	border-left-width: 0px;
	border-top-style: solid;
	border-right-style: solid;
	border-bottom-style: solid;
	border-left-style: solid;
	border-top-color: #0000CC;
	border-right-color: #0000CC;
	border-bottom-color: #0000CC;
	border-left-color: #0000CC;
	background-color: #FFFFFF;
	margin-top: 3px;
	margin-right: 5px;
	margin-bottom: 4px;
	margin-left: 5px;
	background-color: #cfcfee;
}









-->
</style>









<%

'------------------------------------------models_menu:-------------------------
set filea=new Cls_FSO


set rs11md=server.CreateObject("adodb.recordset")
       
rs11md.open "select * from ND_models_reg order by id desc",conn,1,1

do while not rs11md.eof 

biao_rnd_qianzhui=rs11md("all_biao_rnd_qianzhui")
model_folder_path=rs11md("model_folder_path_name")
shilim=trim(rs11md("houtai_menu_shili_name"))


zimodelxmlph="../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile
strXMLFile = Server.MapPath(zimodelxmlph)
oXMLDomg.Load(strXMLFile)



%>

<div id=aas><%=shilim%> 管理</div>
<div id=cont1>

<ul>




<%

set nodeazz=oXMLDomg.documentElement.selectNodes("zimodels/zimodel")
lentaazz=nodeazz.length
for liiz=1 to lentaazz

namezzz=cstr(trim(nodeazz(liiz-1).selectSingleNode("name").text))
'-----
zimodelxmlph="../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile
strXMLFile = Server.MapPath(zimodelxmlph)
oXMLDomg.Load(strXMLFile)

set nodek=oXMLDomg.documentElement.selectSingleNode("zimodels/zimodel[name='"&namezzz&"']")

set nodea3=nodek.selectNodes("custom_pages/custom_page")

zi_model_typex=cstr(nodek.selectSingleNode("zi_model_type").text)

urlaa=nodek.selectSingleNode("page_href_url_use_in_vip_user_page").text

zimodel_biao=namezzz

aryxx     =split(urlaa,"/")   
fileNamexx   =   aryxx(ubound(aryxx))
fileNamexx=left(fileNamexx,instrrev(fileNamexx,".")-1)
fileNamexx1=fileNamexx&"_x_addpage_zi_"&zimodel_biao&".asp"
fileNamexx2=fileNamexx&"_x_listpage_zi_"&zimodel_biao&".asp"
fileNamexx3=fileNamexx&"_x_setpage_zi_"&zimodel_biao&".asp"


adminnameax=trim(nodek.selectSingleNode("adminnamea").text)

%>


<li id=ttl1><%=adminnameax%></li>
<%if zi_model_typex="1" then%>

<li><a href="../Model/Models/<%=model_folder_path%>/complied/<%=fileNamexx1%>" target=main>添加 [<%=adminnameax%>]</a></li>

<li><a href="../Model/Models/<%=model_folder_path%>/complied/<%=fileNamexx2%>" target=main>管理 [<%=adminnameax%>]</a></li>

<%end if%>

<%if zi_model_typex="2" then%>

<li><a href="../Model/Models/<%=model_folder_path%>/complied/<%=fileNamexx3%>" target=main>管理 [<%=adminnameax%>]</a></li>

<%end if%>



<%


set nodea3v=nodek.selectNodes("ziduans/ziduan")


for liiv=1 to nodea3v.length



zd_typex=cstr(trim(nodea3v(liiv-1).selectSingleNode("field_GUI_type").text))
cangsx=cstr(trim(nodea3v(liiv-1).selectSingleNode("field_GUI_cangshuos").text))

'分类表
if zd_typex="15" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
menuv_1=biaonameav(1)



%>
<li><a href="adminModel/D_admin_models_classbiao.asp?biao=<%=biao_rnd_qianzhui&biaonameav_1%>" target=main>[<%=menuv_1%>] 分类管理</a></li>
<%
end if

'专题表
if zd_typex="16" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
menuv_1=biaonameav(1)
%>
<li><a href="adminModel/D_admin_models_zhuantibiao.asp?biao=<%=biao_rnd_qianzhui&biaonameav_1%>" target=main>[<%=menuv_1%>] 专题管理</a></li>
<%

end if


'复选框配置表
if zd_typex="27" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)

menuv_1=biaonameav(1)
%>
<li><a href="adminModel/D_admin_models_fuxuanbiao.asp?biao=<%=biao_rnd_qianzhui&biaonameav_1%>" target=main>[<%=menuv_1%>] 复选项管理</a></li>
<%

end if




'如果是多行多列输入框
'=============if 多行多列输入框======================

if zd_typex="24" then
biaonameav=split(cangsx,"|$aspcpu_f$|")
biaonameav_1=biaonameav(1)
biaonameav_1_p=split(biaonameav_1,"|$aspcpu_g$|")

if trim(biaonameav_1)="" then
pllentt=0
else
pllentt=ubound(biaonameav_1_p)+1
end if

for plniii=1 to pllentt
biaonameav_1_p_1=biaonameav_1_p(plniii-1)
biaonameav_1_p_1_p=split(biaonameav_1_p_1,"|$aspcpu_r1$|")
biaonameav_1_p_1_p_3=biaonameav_1_p_1_p(2)
pzd_typex=biaonameav_1_p_1_p_3
cangsx2=biaonameav_1_p_1_p(0)



'分类表
if pzd_typex="15" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)

menuv_1=biaonameav(1)



%>
<li><a href="adminModel/D_admin_models_classbiao.asp?biao=<%=biao_rnd_qianzhui&biaonameav_1%>" target=main>[<%=menuv_1%>] 分类管理</a></li>
<%

end if

'专题表
if pzd_typex="16" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
menuv_1=biaonameav(1)
%>
<li><a href="adminModel/D_admin_models_zhuantibiao.asp?biao=<%=biao_rnd_qianzhui&biaonameav_1%>" target=main>[<%=menuv_1%>] 专题管理</a></li>
<%
end if


'复选框配置表
if pzd_typex="27" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)

menuv_1=biaonameav(1)
%>
<li><a href="adminModel/D_admin_models_fuxuanbiao.asp?biao=<%=biao_rnd_qianzhui&biaonameav_1%>" target=main>[<%=menuv_1%>] 复选项管理</a></li>
<%
end if




next

end if




'================end if多行多列输入框===================




next
%>



<%

lentaaa=nodea3.length

need_exit1=0
for lii=1 to lentaaa

page_id_xx=cstr(trim(nodea3(lii-1).selectSingleNode("page_id").text))

is_show_in_menu_xx=cstr(trim(nodea3(lii-1).selectSingleNode("is_show_in_menu").text))
menu_name_xx=cstr(trim(nodea3(lii-1).selectSingleNode("menu_name").text))

if is_show_in_menu_xx="1" then
%>


<li><a href="../Model/Models/<%=model_folder_path%>/complied/<%=page_id_xx%>.asp" target=main><%=menu_name_xx%></a></li>

<%

end if



next





next




%>
</ul>
</div>

<%
rs11md.movenext 
loop
'--------------------end----------------------models_menu:-------------------------
%>